divisores:: Int -> [Int]
divisores n = [x | x <- [1..n], mod n x == 0, x<=n]

esPrimo:: Int -> Bool
esPrimo n = length(divisores(n)) == 2

primos:: Int -> [Int]
primos n = [x | x <- [1..n], esPrimo(x)]
